home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / objectex / ex2.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  311 b   |  17 lines

  1. Program ex2;
  2.  
  3. { Program to demonstrate TRect.Copy }
  4.  
  5. Uses objects;
  6.  
  7. Var ARect,BRect,CRect : TRect;
  8.     
  9. begin
  10.   ARect.Assign(10,10,20,20);
  11.   BRect.Assign(15,15,25,25);
  12.   CRect.Copy(ARect);
  13.   If ARect.Equals(CRect) Then
  14.     Writeln ('ARect equals CRect')
  15.   Else
  16.     Writeln ('ARect does not equal CRect !');
  17. end.